﻿Public Class clsUsuario
  Inherits clsConexao
    Private fGeral As Byte, fZoom As Byte,
        fPRoduto As Byte, fGeral2 As Byte
    Private fMatricula As String = "",
            fNome As String = "",
            fSenha As String = "",
            fAcesso As String = "",
            fAbreviado As String = "",
            fFilial As String = "",
            fDepto As String = "",
            fCampo1 As String = "",
            fAcesso2 As String = "",
            fCondicao As String = "",
            fEmail As String = ""
    Private fCadastro As Date,
        fAtualizacao As Date
    Private fTipo_Usuario As Byte
    Private fGrupo As String = ""
    Private fDefaultLookAndFeel As New DevExpress.LookAndFeel.DefaultLookAndFeel

    Public Sub New(ByVal parMatricula As String, ByVal parNomeUsuario As String)
        Me.fMatricula = parMatricula
        Me.fNome = parNomeUsuario
    End Sub


    Public Property Tipo_Usuario() As Byte
        Get
            Return fTipo_Usuario
        End Get
        Set(ByVal value As Byte)
            fTipo_Usuario = value
        End Set
    End Property
    Public Property Grupo() As String
        Get
            Return fGrupo
        End Get
        Set(ByVal value As String)
            fGrupo = value
        End Set
    End Property


    Public Property DefaultLookAndFeel() As DevExpress.LookAndFeel.DefaultLookAndFeel
        Get
            Return fDefaultLookAndFeel
        End Get
        Set(ByVal value As DevExpress.LookAndFeel.DefaultLookAndFeel)
            fDefaultLookAndFeel = value
        End Set
    End Property
    Private fInativo As Byte
    Public Property Inativo() As Byte
        Get
            Return fInativo
        End Get
        Set(ByVal value As Byte)
            fInativo = value
        End Set
    End Property
    Public Sub ListarUsuarios()

    End Sub

    Private Sub cmbSkin_EditValueChanged(ByVal sender As Object, ByVal e As System.EventArgs)
        fDefaultLookAndFeel.LookAndFeel.SkinName = sender.EditValue
        If fSkin <> sender.EditValue Then
            fSkin = sender.EditValue
            Processar(clsConexao.enuTConexao.Atualizacao)
        End If
    End Sub
    Public Sub ListaSkin(ByRef parCombo As DevExpress.XtraBars.BarEditItem, ByRef parComboItem As DevExpress.XtraEditors.Repository.RepositoryItemComboBox)
        For Each sSkin As DevExpress.Skins.SkinContainer In DevExpress.Skins.SkinManager.Default.Skins
            parComboItem.Items.Add(sSkin.SkinName)
        Next sSkin
        If Skin <> "" Then
            parCombo.EditValue = Skin
        Else
            parCombo.EditValue = "Office 2010 Blue"
        End If
        AddHandler parCombo.EditValueChanged, AddressOf cmbSkin_EditValueChanged
    End Sub
    Public Sub New(ByVal parMatricula As String, Optional ByRef parAchou As Boolean = False)
        If IsNumeric(parMatricula) Then
            fMatricula = parMatricula
        Else
            fAbreviado = parMatricula
            fCondicao = " AND US_ABREVIADO = " & Plic(parMatricula)
        End If
        parAchou = Processar(enuTConexao.Consulta)
    End Sub
    Public Sub New()

    End Sub
    Public Function ValidaSenha(ByVal parSenha As String) As Boolean
        Return parSenha.ToUpper = Senha.ToUpper
    End Function
    Private fSkin As String = ""
    Public Property Skin() As String
        Get
            Return fSkin
        End Get
        Set(ByVal value As String)
            fSkin = value
        End Set
    End Property
    Public Property Matricula As String
        Get
            Return fMatricula
        End Get
        Set(ByVal value As String)
            fMatricula = value
        End Set
    End Property
    Public Property Nome() As String
        Get
            Return fNome
        End Get
        Set(ByVal value As String)
            fNome = value
        End Set
    End Property
    Public Property Senha() As String
        Get
            Return Descriptografar(fSenha)
        End Get
        Set(ByVal value As String)
            fSenha = Criptografar(value)
        End Set
    End Property
    Public Property Acesso() As String
        Get
            Return fAcesso
        End Get
        Set(ByVal value As String)
            fAcesso = value
        End Set
    End Property
    Public Property Abreviado As String
        Get
            Return fAbreviado
        End Get
        Set(ByVal value As String)
            fAbreviado = value
        End Set
    End Property
    Public Property Cadastro() As Date
        Get
            Return fCadastro
        End Get
        Set(ByVal value As Date)
            fCadastro = value
        End Set
    End Property
    Public Property Filial() As String
        Get
            Return fFilial
        End Get
        Set(ByVal value As String)
            fFilial = value
        End Set
    End Property
    Public Function Status() As String
        Return IIf(fInativo = 1, "S", "N")
    End Function
    Public Property Geral() As Byte
        Get
            Return fGeral
        End Get
        Set(ByVal value As Byte)
            fGeral = value
        End Set
    End Property
    Public Property Zoom() As Byte
        Get
            Return fZoom
        End Get
        Set(ByVal value As Byte)
            fZoom = value
        End Set
    End Property
    Public Property Produto() As Byte
        Get
            Return fPRoduto
        End Get
        Set(ByVal value As Byte)
            fPRoduto = value
        End Set
    End Property
    Public Property Atualizacao() As Date
        Get
            Return fAtualizacao
        End Get
        Set(ByVal value As Date)
            fAtualizacao = value
        End Set
    End Property
    Public Property Depto() As String
        Get
            Return fDepto
        End Get
        Set(ByVal value As String)
            fDepto = value
        End Set
    End Property
    Public Property Campo1() As String
        Get
            Return fCampo1
        End Get
        Set(ByVal value As String)
            fCampo1 = value
        End Set
    End Property
    Public Property Geral2() As Byte
        Get
            Return fGeral2
        End Get
        Set(ByVal value As Byte)
            fGeral2 = value
        End Set
    End Property
    Public Property Acesso2() As String
        Get
            Return fAcesso2
        End Get
        Set(ByVal value As String)
            fAcesso2 = value
        End Set
    End Property

    Public Property Email As String
        Get
            Return fEmail
        End Get
        Set(ByVal value As String)
            fEmail = value
        End Set
    End Property
    'Public Sub PreencheListaAcesso(ByRef parAcesso As clsRegrasAcessos)
    '    parAcesso.AdicionarAcesso(New clsTipoAcesso(9, "agenda", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    '    parAcesso.AdicionarAcesso(New clsTipoAcesso(10, "chamados", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    '    parAcesso.AdicionarAcesso(New clsTipoAcesso(32, "chamados revisados", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    '    parAcesso.AdicionarAcesso(New clsTipoAcesso(34, "dados gerenciais", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    '    parAcesso.AdicionarAcesso(New clsTipoAcesso(35, "liberar chamado", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    '    parAcesso.AdicionarAcesso(New clsTipoAcesso(31, "ver todos chamados em processamento", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    '    parAcesso.AdicionarAcesso(New clsTipoAcesso(0, "clientes", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    '    parAcesso.AdicionarAcesso(New clsTipoAcesso(7, "impressora", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    '    parAcesso.AdicionarAcesso(New clsTipoAcesso(1, "lojas", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    '    parAcesso.AdicionarAcesso(New clsTipoAcesso(4, "região demografica", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    '    parAcesso.AdicionarAcesso(New clsTipoAcesso(5, "sistemas", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    '    parAcesso.AdicionarAcesso(New clsTipoAcesso(2, "técnicos", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    '    parAcesso.AdicionarAcesso(New clsTipoAcesso(6, "telas", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    '    parAcesso.AdicionarAcesso(New clsTipoAcesso(8, "tipos de atualização", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    '    parAcesso.AdicionarAcesso(New clsTipoAcesso(3, "usuários", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    '    parAcesso.AdicionarAcesso(New clsTipoAcesso(41, "usuários", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    '    parAcesso.AdicionarAcesso(New clsTipoAcesso(42, "notícias", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    '    parAcesso.AdicionarAcesso(New clsTipoAcesso(43, "empresa", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    '    parAcesso.AdicionarAcesso(New clsTipoAcesso(44, "laudo paf-ecf", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    '    parAcesso.AdicionarAcesso(New clsTipoAcesso(49, "validade", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    '    parAcesso.AdicionarAcesso(New clsTipoAcesso(27, "e-mails enviados", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    '    parAcesso.AdicionarAcesso(New clsTipoAcesso(26, "enviar email", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    '    parAcesso.AdicionarAcesso(New clsTipoAcesso(39, "exportar agenda", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    '    parAcesso.AdicionarAcesso(New clsTipoAcesso(25, "receber", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    '    parAcesso.AdicionarAcesso(New clsTipoAcesso(36, "log atualiza", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    '    parAcesso.AdicionarAcesso(New clsTipoAcesso(30, "atualizar servidor ftp", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    '    parAcesso.AdicionarAcesso(New clsTipoAcesso(28, "contas ftp", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    '    parAcesso.AdicionarAcesso(New clsTipoAcesso(45, "arquivos clientes", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    '    parAcesso.AdicionarAcesso(New clsTipoAcesso(46, "libera atualiza", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    '    parAcesso.AdicionarAcesso(New clsTipoAcesso(47, "limpar ftp", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    '    parAcesso.AdicionarAcesso(New clsTipoAcesso(48, "atualiza validades", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    '    parAcesso.AdicionarAcesso(New clsTipoAcesso(33, "agenda", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    '    parAcesso.AdicionarAcesso(New clsTipoAcesso(11, "clientes", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    '    parAcesso.AdicionarAcesso(New clsTipoAcesso(13, "contatos", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    '    parAcesso.AdicionarAcesso(New clsTipoAcesso(12, "lojas", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    '    parAcesso.AdicionarAcesso(New clsTipoAcesso(14, "e-mail", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    '    parAcesso.AdicionarAcesso(New clsTipoAcesso(15, "senha etiqueta", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    '    parAcesso.AdicionarAcesso(New clsTipoAcesso(40, "senha inventário", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    '    parAcesso.AdicionarAcesso(New clsTipoAcesso(16, "editor de email", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    '    parAcesso.AdicionarAcesso(New clsTipoAcesso(17, "enviar listagem de e-mail", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    '    parAcesso.AdicionarAcesso(New clsTipoAcesso(18, "selecionar", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    '    parAcesso.AdicionarAcesso(New clsTipoAcesso(20, "agenda", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    '    parAcesso.AdicionarAcesso(New clsTipoAcesso(22, "chamados", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    '    parAcesso.AdicionarAcesso(New clsTipoAcesso(19, "clientes", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    '    parAcesso.AdicionarAcesso(New clsTipoAcesso(37, "log atualiza", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    '    parAcesso.AdicionarAcesso(New clsTipoAcesso(38, "prontos", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    '    parAcesso.AdicionarAcesso(New clsTipoAcesso(21, "prospect", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))







    'parAcesso.AdicionarAcesso(New clsTipoAcesso(1, "Clientes", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    'parAcesso.AdicionarAcesso(New clsTipoAcesso(2, "Lojas", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    'parAcesso.AdicionarAcesso(New clsTipoAcesso(3, "Técnicos", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    'parAcesso.AdicionarAcesso(New clsTipoAcesso(4, "Usuários", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    'parAcesso.AdicionarAcesso(New clsTipoAcesso(5, "Região Demografica", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    'parAcesso.AdicionarAcesso(New clsTipoAcesso(6, "Sistemas", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    'parAcesso.AdicionarAcesso(New clsTipoAcesso(7, "Telas", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    'parAcesso.AdicionarAcesso(New clsTipoAcesso(8, "Impressora", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    'parAcesso.AdicionarAcesso(New clsTipoAcesso(9, "Tipos de Atualização", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    'parAcesso.AdicionarAcesso(New clsTipoAcesso(10, "Agenda", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    'parAcesso.AdicionarAcesso(New clsTipoAcesso(11, "Chamados", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    'parAcesso.AdicionarAcesso(New clsTipoAcesso(12, "Clientes", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    'parAcesso.AdicionarAcesso(New clsTipoAcesso(13, "Lojas", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    'parAcesso.AdicionarAcesso(New clsTipoAcesso(14, "Contatos", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    'parAcesso.AdicionarAcesso(New clsTipoAcesso(15, "E-mail", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    'parAcesso.AdicionarAcesso(New clsTipoAcesso(16, "Senha Etiqueta", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    'parAcesso.AdicionarAcesso(New clsTipoAcesso(17, "Editor de email", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    'parAcesso.AdicionarAcesso(New clsTipoAcesso(18, "Enviar listagem de e-mail", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    'parAcesso.AdicionarAcesso(New clsTipoAcesso(19, "Selecionar Clientes", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    'parAcesso.AdicionarAcesso(New clsTipoAcesso(20, "Clientes", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    'parAcesso.AdicionarAcesso(New clsTipoAcesso(21, "Agenda", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    'parAcesso.AdicionarAcesso(New clsTipoAcesso(22, "Prospect", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    'parAcesso.AdicionarAcesso(New clsTipoAcesso(23, "Chamados", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    'parAcesso.AdicionarAcesso(New clsTipoAcesso(24, "Comercial", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    'parAcesso.AdicionarAcesso(New clsTipoAcesso(25, "Exportar", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    'parAcesso.AdicionarAcesso(New clsTipoAcesso(26, "Receber", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    'parAcesso.AdicionarAcesso(New clsTipoAcesso(27, "Enviar e-mail", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    'parAcesso.AdicionarAcesso(New clsTipoAcesso(28, "E-mails enviados", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    'parAcesso.AdicionarAcesso(New clsTipoAcesso(29, "Contas FTP", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    'parAcesso.AdicionarAcesso(New clsTipoAcesso(30, "Atualizar servidor", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    'parAcesso.AdicionarAcesso(New clsTipoAcesso(31, "Atualizar servidor FTP", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    'parAcesso.AdicionarAcesso(New clsTipoAcesso(32, "Ve Todos Chamados em processamento", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    'parAcesso.AdicionarAcesso(New clsTipoAcesso(33, "Chamados Revisados", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    'parAcesso.AdicionarAcesso(New clsTipoAcesso(34, "Agenda", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    'parAcesso.AdicionarAcesso(New clsTipoAcesso(34, "Dados Gerenciais", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    'parAcesso.AdicionarAcesso(New clsTipoAcesso(34, "Liberar Chamado", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    'parAcesso.AdicionarAcesso(New clsTipoAcesso(34, "Log Atualiza", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    'parAcesso.AdicionarAcesso(New clsTipoAcesso(34, "Pontos", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    'parAcesso.AdicionarAcesso(New clsTipoAcesso(34, "Exportar Agenda", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    'parAcesso.AdicionarAcesso(New clsTipoAcesso(34, "Senha Inventário", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    'parAcesso.AdicionarAcesso(New clsTipoAcesso(34, "Autores", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    'parAcesso.AdicionarAcesso(New clsTipoAcesso(34, "Notícias", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    'parAcesso.AdicionarAcesso(New clsTipoAcesso(34, "Empresa", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    'parAcesso.AdicionarAcesso(New clsTipoAcesso(34, "Laudo PAF-ECF", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    'parAcesso.AdicionarAcesso(New clsTipoAcesso(34, "Arquivos Clientes", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    'parAcesso.AdicionarAcesso(New clsTipoAcesso(34, "ibera Atualiza", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    'parAcesso.AdicionarAcesso(New clsTipoAcesso(34, "Libera Atualiza", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    'parAcesso.AdicionarAcesso(New clsTipoAcesso(34, "Limpar FTP", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    'parAcesso.AdicionarAcesso(New clsTipoAcesso(34, "Atualizar Validades", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    'parAcesso.AdicionarAcesso(New clsTipoAcesso(34, "Validade", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))






    'parAcesso.AdicionarAcesso(New clsTipoAcesso(1, "Cadastro-Geral - Agenda", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    'parAcesso.AdicionarAcesso(New clsTipoAcesso(2, "Cadastro-Geral - Chamados", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    'parAcesso.AdicionarAcesso(New clsTipoAcesso(3, "Cadastro-Geral - Dados Gerenciais", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    'parAcesso.AdicionarAcesso(New clsTipoAcesso(4, "Cadastro-Geral - Liberar Chamado", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    'parAcesso.AdicionarAcesso(New clsTipoAcesso(5, "Cadastro-Geral - Ver todos chamados em processamento", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    'parAcesso.AdicionarAcesso(New clsTipoAcesso(6, "Cadastro-Geral - Clientes", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    'parAcesso.AdicionarAcesso(New clsTipoAcesso(7, "Cadastro-Geral - Comercial", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    'parAcesso.AdicionarAcesso(New clsTipoAcesso(8, "Cadastro-Geral - Impressora", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    'parAcesso.AdicionarAcesso(New clsTipoAcesso(9, "Cadastro-Geral - Lojas", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    'parAcesso.AdicionarAcesso(New clsTipoAcesso(10, "Cadastro-Geral - Região Demografica", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    'parAcesso.AdicionarAcesso(New clsTipoAcesso(11, "Cadastro-Geral - Sistemas", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    'parAcesso.AdicionarAcesso(New clsTipoAcesso(12, "Cadastro-Geral - Técnico", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    'parAcesso.AdicionarAcesso(New clsTipoAcesso(13, "Cadastro-Geral - Telas", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    'parAcesso.AdicionarAcesso(New clsTipoAcesso(14, "Cadastro-Geral - Tipos de Atualização", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    'parAcesso.AdicionarAcesso(New clsTipoAcesso(15, "Cadastro-Geral - Usuários", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    'parAcesso.AdicionarAcesso(New clsTipoAcesso(16, "Cadastro-Geral - Noticias", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    'parAcesso.AdicionarAcesso(New clsTipoAcesso(17, "Cadastro-Geral - Empresa", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    'parAcesso.AdicionarAcesso(New clsTipoAcesso(18, "Cadastro-Geral - Lauso PAF-EAC", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    'parAcesso.AdicionarAcesso(New clsTipoAcesso(19, "Cadastro-Geral - Validade", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    'parAcesso.AdicionarAcesso(New clsTipoAcesso(25, "Cadastro-Geral - Revisar chamado", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    'parAcesso.AdicionarAcesso(New clsTipoAcesso(26, "Cadastro-Geral - Sistema", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    'parAcesso.AdicionarAcesso(New clsTipoAcesso(27, "Cadastro-Geral - Técnico", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    'parAcesso.AdicionarAcesso(New clsTipoAcesso(28, "Cadastro-Geral - Telas", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    'parAcesso.AdicionarAcesso(New clsTipoAcesso(29, "Cadastro-Geral - Tipos de Atualização", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    'parAcesso.AdicionarAcesso(New clsTipoAcesso(30, "Cadastro-Geral - Usuários", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    'parAcesso.AdicionarAcesso(New clsTipoAcesso(31, "Cadastro-Geral - Autores", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    'parAcesso.AdicionarAcesso(New clsTipoAcesso(32, "Cadastro-Geral - Notícias", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    'parAcesso.AdicionarAcesso(New clsTipoAcesso(33, "Cadastro-Geral - Empresa", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    'parAcesso.AdicionarAcesso(New clsTipoAcesso(34, "Cadastro-Geral - Laudo PAF-ECF", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    'parAcesso.AdicionarAcesso(New clsTipoAcesso(35, "Cadastro-Geral - Validade", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))

    'parAcesso.AdicionarAcesso(New clsTipoAcesso(36, "TransferênciasE - Mails enviados", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    'parAcesso.AdicionarAcesso(New clsTipoAcesso(37, "TransferênciasE - Enviar e-mail", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    'parAcesso.AdicionarAcesso(New clsTipoAcesso(38, "TransferênciasE - Exportar", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    'parAcesso.AdicionarAcesso(New clsTipoAcesso(39, "TransferênciasE - Exportar", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    'parAcesso.AdicionarAcesso(New clsTipoAcesso(40, "TransferênciasE - Exportar Agenda", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    'parAcesso.AdicionarAcesso(New clsTipoAcesso(41, "TransferênciasE - Receber", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    'parAcesso.AdicionarAcesso(New clsTipoAcesso(42, "TransferênciasE - Log Atualizada", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))

    'parAcesso.AdicionarAcesso(New clsTipoAcesso(43, "FTP - Atualizar servidor FTP", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    'parAcesso.AdicionarAcesso(New clsTipoAcesso(44, "FTP - Contas FTP", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    'parAcesso.AdicionarAcesso(New clsTipoAcesso(44, "FTP - Arquivos Clientes", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    'parAcesso.AdicionarAcesso(New clsTipoAcesso(45, "FTP - Libera Atualiza", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    'parAcesso.AdicionarAcesso(New clsTipoAcesso(46, "FTP - Limpar FTP", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    'parAcesso.AdicionarAcesso(New clsTipoAcesso(47, "FTP - Atualizar Validadores", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))

    'parAcesso.AdicionarAcesso(New clsTipoAcesso(48, "Prospect - Agenda", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    'parAcesso.AdicionarAcesso(New clsTipoAcesso(49, "Prospect -  Clientes", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    'parAcesso.AdicionarAcesso(New clsTipoAcesso(50, "Prospect - Contatos", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    'parAcesso.AdicionarAcesso(New clsTipoAcesso(51, "Prospect -  Lojas", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))

    'parAcesso.AdicionarAcesso(New clsTipoAcesso(52, "Configurações - E-Mail", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    'parAcesso.AdicionarAcesso(New clsTipoAcesso(53, "Configurações - Senha Etiqueta", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    'parAcesso.AdicionarAcesso(New clsTipoAcesso(54, "Configurações - Senha Inventário", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))

    'parAcesso.AdicionarAcesso(New clsTipoAcesso(55, "Mala-Direta - Editor de Email", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    'parAcesso.AdicionarAcesso(New clsTipoAcesso(56, "Mala-Direta - Enviar Listagem de e-mail", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    'parAcesso.AdicionarAcesso(New clsTipoAcesso(57, "Mala-Direta - Selecionar", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))

    'parAcesso.AdicionarAcesso(New clsTipoAcesso(58, "Relatorios - Agenda", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    'parAcesso.AdicionarAcesso(New clsTipoAcesso(59, "Relatorios - Chamados", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    'parAcesso.AdicionarAcesso(New clsTipoAcesso(60, "Relatorios - Clientes", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    'parAcesso.AdicionarAcesso(New clsTipoAcesso(61, "Relatorios - Log Atualiza", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    'parAcesso.AdicionarAcesso(New clsTipoAcesso(62, "Relatorios - Pontos", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))
    'parAcesso.AdicionarAcesso(New clsTipoAcesso(63, "Relatorios - Prospect", "", Nothing, clsTipoAcesso.enuTipoAcesso.Incluir_Alterar_Excluir_Consultar))



    'End Sub


    Private Sub clsFilial_ListaCampo(ByVal ParAcao As enuTConexao, ByRef parErro As Boolean) Handles Me.ListaCampo
        fNomeTabela = "USUARIOS"
        AlimentaCampo("US_MATRICULA", fMatricula, True)
        AlimentaCampo("US_NOME", fNome, False)
        AlimentaCampo("US_SENHA", fSenha, False, False, False, False)
        'AlimentaCampo("US_ACESSO", fAcesso, False, True)
        AlimentaCampo("US_ABREVIADO", fAbreviado, False)
        AlimentaCampo("US_CADASTRO", fCadastro, False)
        AlimentaCampo("US_INATIVO", fInativo, False)
        AlimentaCampo("US_EMAIL", fEmail, False)
        AlimentaCampo("US_D_ALTERACAO", fAtualizacao, False)
        AlimentaCampo("US_SKIN", fSkin, False)
        AlimentaCampo("US_TIPO_USUARIO", fTipo_Usuario, False)
        AlimentaCampo("US_GRUPO", fGrupo, False)
        If fCondicao <> "" Then CondicaoSql = fCondicao
    End Sub

    'Private pItemAcesso As New List(Of clsItemRegristroAcesso)
    'Public Property ItemAcesso As List(Of clsItemRegristroAcesso)
    '    Get
    '        Return pItemAcesso
    '    End Get
    '    Set(ByVal value As List(Of clsItemRegristroAcesso))
    '        pItemAcesso = value
    '    End Set
    'End Property

    'Public Property ItensAcesssosSelecionados As String
    '    Get
    '        Dim sListaItensAcesso As String = ""
    '        For index = 0 To Me.ItemAcesso.Count - 1
    '            sListaItensAcesso = sListaItensAcesso + Me.ItemAcesso.Item(index).Indice.ToString()
    '        Next
    '        Return sListaItensAcesso
    '    End Get
    '    Set(ByVal value As String)

    '    End Set
    'End Property



    'Public Sub CadastrarUsuario(ByVal ParClsUsuario As clsUsuario)
    '    ExecutaSql("INSERT INTO USUARIOS (US_MATRICULA,US_NOME,US_SENHA,US_ABREVIADO) VALUES ('" + PegarUltimaMatricula() + "','" + ParClsUsuario.Nome + "','" + ParClsUsuario.Senha + "','" + ParClsUsuario.Abreviado + "')", True, False, False)
    'End Sub


End Class
